10 POKE53280,0
20 POKE53281,0
30 PRINT"[147]COLOR MAGIC"
1000 REM MIX
1010 FORA=49152TO49243
1020 READAA
1030 POKEA,AA
1040 NEXT
1050 DATA120,169,49,141,20,3,169,192
1060 DATA141,21,3,173,17,208,41,127,141
1070 DATA17,208,169,255,141,18,208,169
1080 DATA1,141,26,208,169,127,141,13
1090 DATA220,88,169,255,141,14,212,141
1100 DATA15,212,169,128,141,18,212,96
1110 DATA206,53,192,169,3,208,27,169
1120 DATA3:REM SPEED
1130 DATA141,53,192,162,0,173,27,212
1140 DATA157,0,216,157,250,216,157,244
1150 DATA217,157,238,218,232,224,250
1160 DATA208,236,169,1,141,25,208,76,49
1170 DATA234,0
1180 PRINT"POKE 49209,3:SYS 49152:REM MIX"
2000 REM SCROLL
2010 FORA=49244TO49343
2020 READAA
2030 POKEA,AA
2040 NEXT
2050 DATA120,169,128,141,20,3,169,192
2060 DATA141,21,3,173,17,208,41,127,141
2070 DATA17,208,169,255,141,18,208,169
2080 DATA1,141,26,208,169,127,141,13
2090 DATA220,88,96,206,132,192,169,4
2100 DATA208,48,169
2110 DATA4:REM SPEED
2120 DATA141,132,192,162
2130 DATA24,189,240,236,141,163,192,181
2140 DATA217,41,15,24,105,212,141,164
2150 DATA192,160,39,169,0,153,0,216,136
2160 DATA16,250,206,161,192,202,16,224
2170 DATA173,161,192,24,105,8,141,161
2180 DATA192,169,1,141,25,208,76,49,234
2190 DATA0
2200 PRINT"POKE 49288,4:SYS 49244:REM SCROLL"
3000 REM FLASH
3010 FORA=49344TO49424
3020 READAA
3030 POKEA,AA
3040 NEXT
3050 DATA120,169,228,141,20,3,169,192
3060 DATA141,21,3,173,17,208,41,127,141
3070 DATA17,208,169,255,141,18,208,169
3080 DATA1,141,26,208,169,127,141,13
3090 DATA220,88,96,206,232,192,169,1
3100 DATA208,29,169
3110 DATA1:REM SPEED
3120 DATA141,232,192,162,0
3130 DATA169,0,157,0,216,157,250,216
3140 DATA157,244,217,157,238,218,232
3150 DATA224,250,208,239,238,243,192
3160 DATA169,1,141,25,208,76,49,234,0
3170 PRINT"POKE 49388,1:SYS 49344:REM FLASH"
4000 REM SPARKLE
4010 FORA=49425TO49508
4020 READAA
4030 POKEA,AA
4040 NEXT
4050 DATA120,169,53,141,20,3,169,193
4060 DATA141,21,3,173,17,208,41,127,141
4070 DATA17,208,169,255,141,18,208,169
4080 DATA1,141,26,208,169,127,141,13
4090 DATA220,88,96,206,57,193,169,2,208
4100 DATA32,169
4110 DATA2:REM SPEED
4120 DATA141,57,193,162,0,169
4130 DATA0,24,105,1,157,0,216,157,250
4140 DATA216,157,244,217,157,238,218
4150 DATA232,224,250,208,236,206,68,193
4160 DATA169,1,141,25,208,76,49,234,0
4170 PRINT"POKE 49469,2:SYS 49425:REM SPARKLE"
5000 REM SET
5010 FORA=49509TO49554
5020 READAA
5030 POKEA,AA
5040 NEXT
5050 DATA120,169,49,141,20,3,169,234
5060 DATA141,21,3,169,0,141,26,208,169
5070 DATA129,141,13,220,88,162,0,173
5080 DATA134,2,157,0,216,157,250,216
5090 DATA157,244,217,157,238,218,232
5100 DATA224,250,208,239,96,0
5110 PRINT"SYS 49509:REM SET"